home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / rqtlsusr.lha / ReqTools / RexxReqTools / Examples / TTXARexx.lha / AddChars.ttx next >
Text File  |  1993-10-21  |  946b  |  49 lines
  1. /* $VER: AddChars.ttx 1.0 (07.07.93)
  2.  * Add chars to the start or the end of the marked lines, or the entire
  3.  * document. Based on a script written by Martin Taillefer
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. PARSE ARG Ch
  8.  
  9. IF Ch = "" THEN DO
  10.   Ch = rtGetString( , "Chars to add:", "TurboText request", "_Prepend|_Append|_Cancel", "RT_PubScreenName=TURBOTEXT" )
  11.   IF rtResult = 0 THEN RETURN
  12.   Location = rtResult
  13. END
  14.  
  15. SetStatusBar TEMPORARY "Working..."
  16.  
  17. GetBlkInfo
  18. PARSE VAR RESULT SelectMode Dummy SelLine .
  19.  
  20. SetDisplayLock ON
  21. SetBookmark 0
  22.  
  23. RecordMacro QUIET
  24. IF Location = 1 THEN MoveSOL ELSE MoveEol     /* 1 = Start, 2 = End */
  25. Text TEXT Ch
  26. MoveDown
  27. EndMacro
  28.  
  29. IF SelectMode = "ON" THEN DO
  30.   GetCursorPos
  31.   PARSE VAR RESULT CurLine .
  32.  
  33.   IF CurLine > SelLine THEN DO
  34.     Temp    = CurLine
  35.     CurLine = SelLine
  36.     SelLine = Temp
  37.     Move CurLine
  38.   END
  39.  
  40.   PlayMacro ( SelLine - CurLine )
  41. END
  42. ELSE DO
  43.   MoveSOF
  44.   PlayMacro 0
  45. END
  46.  
  47. MoveBookmark 0
  48. SetDisplayLock OFF
  49.